﻿Imports System.Data
Imports System.Data.SqlClient
Imports Entidad
Imports Datos

Public Class ArticuloNegocio

    Dim dao As New ArticuloDatos

    Function obtenerArticulo(codArticulo As String) As Articulo
        Return dao.obtenerArticulo(codArticulo)
    End Function

    Function obtenerArticulosXFiltro(codArticulo As String, descrip As String, codProveedor As String, codAlmacen As String, codFamilia As String, aPartirde As Integer, dscto As Decimal, tipo As String) As DataSet
        Return dao.obtenerArticulosXFiltro(codArticulo, descrip, codProveedor, codAlmacen, codFamilia, aPartirde, dscto, tipo)
    End Function

    Function obtenerDescuentosXArticulo(codArticulo As String, tipo As Integer) As DataSet
        Return dao.obtenerDescuentosXArticulo(codArticulo, tipo)
    End Function

    Sub registrarDescuentos(cia As String, suc As String, artCodigo As String, cant As Integer, porcen As Decimal, fechaIni As String, fechaFin As String)
        dao.registrarDescuentos(cia, suc, artCodigo, cant, porcen, fechaIni, fechaFin)
    End Sub

    Sub activarDescuentos(cia As String, suc As String, artCodigo As String, cantidad As Integer)
        dao.activarDescuentos(cia, suc, artCodigo, cantidad)
    End Sub

End Class
